home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / landscapepage.pprx < prev    next >
Text File  |  1992-07-17  |  1KB  |  57 lines
  1. /* This Genie changes a portrait format page to landscape, and vice versa. It sets up the Postscript output specs correctly.
  2. Written by Don Cox  July '92   */
  3.  
  4.  
  5.  
  6. signal on error
  7. signal on syntax
  8. address command
  9. call SafeEndEdit.rexx()
  10.  
  11. cpage = ppm_CurrentPage()
  12. psize = ppm_GetPageSize(cpage)
  13. Xsize = word(psize,1)
  14. Ysize = word(psize,2)
  15.  
  16. if Xsize = Ysize then exit_msg("Page is square")
  17. if Xsize<Ysize then 
  18. do
  19.     shape = "Portrait"
  20.     newshape = "Landscape"
  21.     neworient = 2
  22.     end
  23. else do
  24.     shape = "Landscape"
  25.     newshape = "Portrait"
  26.     neworient = 1
  27.     end
  28.  
  29. choiceint = ppm_Inform(2,"Page is currently "shape". Convert to "newshape"?","Yes","No")
  30. if choiceint  ~=0 then exit_msg("No change")
  31.  
  32. call ppm_SetPageSize(cpage,Ysize,Xsize)
  33. orient = ppm_GetPSOutputOrient(cpage)
  34.  
  35. call ppm_SetPSOutputOrient(cpage,neworient)
  36.  
  37. call exit_msg()
  38.  
  39. end
  40.  
  41. error:
  42. syntax:
  43.     do
  44.     exit_msg("Genie failed due to error: "errortext(rc))
  45.     end
  46.  
  47. exit_msg:
  48.     do
  49.     parse arg message
  50.     if message ~= "" then
  51.     call ppm_Inform(1,message,"Resume")
  52.     call ppm_ClearStatus()
  53.     call ppm_AutoUpdate(1)
  54.     exit
  55.     end
  56.  
  57.